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° 16 pr1084 $3:49:8 SRCICNFREQUES -B 


-Sep-1 49:52 NICNF.SRC 


AIL cntheoes Ethernet Configurator Module’ 


MODULE CNFREQUES 
LANGUAGE (BLI $34) « 
Ps ENT = ‘V04-000' 


BEGIN 


' 
leuteneeenennenceeeeenenenernerterertrereereererinerentnernennetnernerneneets 
Ie 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


® 
® 
® 
® 
' ’ 
'® THIS SOFTWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND gh * 
!® ONLY IN me ANCE WITH THE TERMS OF SUCH That SE_ AND WITH THE * 
!* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY_NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!t TRANSFERRED. ® 
H * 
!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
't CORPORATION. * 

® 

® 

® 

® 

* 

* 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PITIIIIILILI LILI LILI LLL LLL LLL LETT tiiTiiiiiiiiiiiiiiiiii 
1 

'e4¢ 

FACILITY: DECnet Configurator Module (NICONFIG) 

5 MEOTaAETe 


This module contains the routines to process incoming requests 
by parsing them and dispatching to the appropriate routines. 


i ENVIRONMENT: VAX/VMS Operating System 


i AUTHOR: Bob Grosso, CREATION DATE: 13-Oct-1982 
{ MODIFIED BY: 
v03-002 ocaes Bob Gros 16-May-1983 
Correct the arguement list to a call to Signal. 
v03-001 RPGO001 Bob Grosso 02-May-1983 


Check state of UNA, 
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CNFREQUES DECnet Ethernet Configurator Module 1b-se 1984 02:04:29 AX-11 Bliss-32 V4.0-74 P 
v04 De stan “ 14 Sep 38 $109 :83 cj F age 5§ 


NICNF..SRCICNFREQUES.832;1 (2) 
ZSBTTL ‘Definitions’ 


INCLUDE FILES: 


woo 
oo 
WN —"OOONOUSWw —3 


; EXTERNAL REFERENCES: 


MEW O00 


EXTERNAL ROUTINE 


SSBUS 


! Module CNFMAIN 
SEXI ' Clean up and exit 

FSTRA ' Log messages to log file 

F$LOG_DATA, i Log messages to log file 

ped 47 ZvVM, } Get zeroed virtual memory 


! Free virtual memory 


5 1 

3 1 

5 1 

3 1 

. i 

: 60 05 LIBRARY 'SYSSLIBRARY:STARLET'; ! VMS common definitions 

: 6 96 LIBRARY "SHRLIBS:NET'; ! Network definitions 

; ee 8207 } LIBRARY ‘SHRLIBS:NMALIBRY'; ! NICE code definitions 

3 66 065 REQUIRE "LIBS: CNFDEF.R32°; 

: eB 0137 : REQUIRE ‘SRCS$:CNFPREFIX.REG’; 

: 70 6 55 1 

: = 0 2§ 1! 

ler 0257 1 ! BUILTIN functions 

Bee BS 

: 75 0260 1 BUILTIN 

. a 0261 1 INSQUE, ' INSQUE instruction 

3 a 8 6¢ : REMQUE; ' REMQUE instruction 

RB RBI, 

> 81 0966 1 ' TABLE OF CONTENTS: 

: 8 0368 Sy 

: Bs 0 69 1] FORWARD ROUTINE 

; 86 ea 1 CNFSPROCESS REQUEST : NOVALUE, ! Jacket routine for Process_request 

s 68 os 78 1 PROCESS REQUEST ' Parse NICE and dispatch 

; #8 0273 1 CNF_ENABLE SURVEILLANCE, ' Jacket routine for enable_surveillance 
; 0274 1 ENABLE SURVEILLANCE, ! Set-up to ecrrere for setting surveillance 
: 90 5454 1 URVEIC ' Begin surveillance of a circuit 

; 0 76 1 CNFSLOCATE_CIR_BL ! Match an ASCII circuit name with a CIR control block 
. ¥ ose 1 NF _DISABLE SURVEILLANCE, ' Jacket routine for disable_surveillance 
3 0278 1 DISABLE_SURVEILL ‘ ' set-up to prepare to discontinue circuit surveillance 
3 544 : CNFSDISABLE_SURVEIL; ! disabled surveillance of a circuit 

; 028 

; H 1 

3 84 (1 

3 8 : 

; 1 

; 1 

3 1 

3 1 

3 1 

3 q 

3 1 

; 1 

3 1 


— —) ss ) 9 4 
SSSSSSFATSSSSSasLe 
PRIMIPOPIPIPIPONIPONINNONP Pony 


ooooo 
MEW 


EE_vM, 


H 14 
CNFREQUES DECnet Ethernet Configurator Module 16-Se 
7062500 Telens ° lage 


$f ! Module CNFSTORE 

: 39 CNFSREAD_SYSIDM, ! Issue Q10 to Listen on the NI 
: 8 ! Module CNF SHOW 

} 08 CNF SPROCESS_SHOW, ! Show Circuit and system IDs 


! Module CNFSEND 


CNFSBUFR_NICE_MSG, 
CNFSBUFR-ERR_MSG 


ooooo 
OWONOu 


1 
5 
: 
8 


2 1 

3; } 1 

3 } 1 

te 1 

3 J 1 

s ¥ 1 

. 3 1 

; } 1 

7 1 

3; 1 

3 7 1 

a 1 

. ¥ 1 

: 09 CNFSSEND-NICE_MSG, 

; : \} : ! Module CNFWORKQ 

3 : 8 18 : WKQSADD_WORK_ITEM; ! Add work to work queue 

; ; Bete : EXTERNAL ROUTINE 

; : a : STRSCOMPARE : ADDRESSING_MODE (GENERAL); 

= 319 1 

; ’ 83 y ' EXTERNAL LITERAL 

3; 15 03 ¢ 1 CNFS$_CHAN ! Error assigning or deassigning channel 

3; 38 03 1 CNFS-DRVRSTRT, ! Error while issuing startup command to driver 

; +4 b3 : : CNFS$_LOGIC, ! Program logic error or unexpected condition 

3; «141 0336 1! From CNFSTORE 

; We 83 1 SYSIDM_BUFSIZ, 

s 16 0328 #1 ADRTYP_BUFSIZ, 

3; 144 33 a 

3; «6145 330 1 CNFSC_SYNCH_EFN, 

> 146 0331 1 CNFSC_ASYNCRA_EFN; 

3; 1467 H ¢ 1 

; 148 0 1 

; 4 Bs : ! EXTERNAL 

3; 151 08 6 1 CNFSB_SURVEILLANCE SET, ! Boolean: mark if anything is under surveillance 

: 13 8 4 1 CNFSW-NETCHAN : WORD ! Channel opened to networ 

3 187 $3 : CNF$GO_CIRSURLST : VECTOR (2; ! List of circuit under surveillance 

: 138 40 1 OWN 

: 128 341 1 SUCCESS pice DSC : 

3 15 x48 1 BBLOCK CBSC$C_S_BLNJ INITIAL 

; 158 1 ( 

3 99 4 1 4 

; 160 5 1 UPLIT ¢ 

: 161 $ 1 BYTE (2X'01"), 

; 166 47 1 WORD (2X'FFFF*), 

; 48 1 BYTE (%x'00") 

> 164 49 1 ) 

; 165 50 1 ); | 
ere e 
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CNFREQUES DECnet Ethernet Configurator Module 1b-5e 1984 02:04:29 AX-11 Bliss-32 V4.0-74 Pp 4 
v06-000 cnf$process_request 1 ~Sep-19 4 95:05:85 NICNF. SRCICNFREQUES 83 31 hae (3) 
; 167 1 ZSBTTL wo iserece s request’ 
; 198 } GLOBAL ROUTINE CNFSPROCESS_REQUEST (IRB) : NOVALUE = 
: 1% 4 1 te 
: 10) 5 : FUNCTIONAL DESCRIPTION: 
: 13 5 1! This routine is executed off the work queue. 
3; 174 28 1! Parse the NICE message to determine the type of operation, 
s 75 8 59 1! and the circuits to be affected. Dispatch to appropriate 
: 178 rs ! routine if entire message is correct. 
; 178 6¢ ; FORMAL PARAMETERS: 
: 180 64 13 irb Interrupt request block, contains all the info for a connection 
; «(181 0365 1! to NICONFIG. The IRB contains the NICE command which will 
; 136 0367 : H be parsed. 
> 184 38 1! IMPLICIT INPUTS: 
s 185 0 $ 1! NONE 
; «4186 0370 1! 
; 187 0371 1 =! IMPLICIT OUTPUTS: 
; «6188 0372 1! NONE 
; «6189 ba 1! 
; 190 0374 1 ! ROUTINE VALUE: 
; 6191 Bate 1 ! COMPLETION CODES: 
: #19 0376 1! Success 
; 19 o3f 1! 
; «194 0378 1 ! SIDE EFFECTS: 
3; «6195 0379 1! NONE 
; 196 0380 1! 
3: 197 0381 1 !-- 
; 198 Oaee 1 
; 199 038 BEGIN 
j 600 0384 LOCAL 
; 201 0385 CIRCUIT_DSC : BBLOCK CDSC$C_S_BLNI, ! Allocate circuit name descriptor here, whether it will be 
; 208 0386 i or not, it makes book keeping much simpler. 
: 20 tet STATUS; 
: 05 0389 CHSFILL (0, DSC$C_S_BLN, CIRCUIT_DSC); ' Zero the descriptor 
3 206 0390 STATUS = PROCESS_REQUEST (.1RB, CIRCUIT_DSC); i Parse and act upon the command 
: 44 039 Ay STATUS ! If unsuccessful, buffer an error message for retur 
3 4 $8 CNFSBUFR_ERR_MSG (.IRB, NMASC_STS_RES, 0, .STATUS, 0); 
3 i} 0395 CNFSSEND_NICE_MSG (.IRB); ! Issue Q10's to send NICE messages buffered 
3 1§ $e IF .CIRCUIT_DSC CDSC$W_LENGTH] NEQ 0 ! If a buffer was allocated to the descriptor, retur 
3 F +4 CNFSFREE_VM (CIRCUIT_DSC COSC$W_LENGTH], CIRCUIT_DSC CDSCSA_POINTER)); 
: 17 401 RETURN TRUE; ' Always return success, errors are sent via Q10 bac 
; 218 0402 1 ND; ! Routine cnf$process_request 
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DECnet Ethernet Saaregureter Module 
cnfS$process_request 


oh 


001 


$900) P.AAA: 
003 


00000004 00000 SUCCESS 
00000000" 00004 


003¢ 00000 
5E 08 ge 0000 
08 00 6E 00 2C 0000 
ge Q000A 
E 0D 00008 
04 AC 0D 00000 
0000v CF 02 FB 00010 
11 50 €8 00015 
7E 04 00018 
0 DD OQO01A 
E 04 Q00IC 
7E OF CE OOOIE 
04 AC DD 00021 
00006 CF 05 FB 4 4 
04 AC OD 9 18: 
0000G CF 01 F B08 C 
6— 8B 1 
0B 1 3 H 
04 AE 9F 
04 AE 9F 000 
00006 CF 02 FB 000 3 
04 00040 2$: 


3; Routine Size: 65 bytes, Routine Base: S$CODE$ + 0000 


1Ecbenn19Re 03:04:98 


AX-11 Bliss-32 V4.0-74 
NICNF..SRCJCNFREQUES.832;1 

-PSECT SPLITS,NOWRT,NOEXE,2 

-BYTE 1 

«WORD = =1 

-BYTE 0 

«PSECT SOWNS,NOEXE,2 

NICE DSC: 


-LON 
eADDRESS P.AAA 
cnr cenit reg begs 


TEXTRN CNFSLOG_DATA, CNFSGET_ZVM 
‘ CNFSFREE_VM, CN SREAD SYSIDM 


CNF SC 

CNFSC_A YNCR E 

CNFSB_ TASTNCR EEN 

CNF SW_NETCHAN, tNESGG. CIRSURLST 
SCODES,NOWRT,2 
CNFSPROCESS_REQUEST, Save R2,R3,R4,R5 
#0; (SP), #0, #8, CIRCUIT_DSC 
SP 

IRB 

#2, PROCESS_REQUEST 

STATUS, 1$ 

STATUS 

#15, -(SP) 

# CNF SBUFR_ERR_MSG 


#1, CNFESSEND_NICE_MSG 
cIRCUIT_ DSC 


genet -DSC+4 
gars DSC 
& CNF SPREE _vM 


SeSe Se Se Se Se Se Se Se Fe Se Se Se Se Ge Se Se Se Se Be Se Be 


DWONAULSWN OO OONOUS WN O 


MEWN—oO 


SRR RR PEW 


PAPA & 
DWDONOUSWN—"OV0OnNO 


FARLS 


o 
w 


BRUNE SRB 


ROPPIPIPIPIPININOPIPIPININININININININININININNINININININININN 


MAMMA 
NO 


K 14 


to conta 
! function, option, and "CONFIGURATOR", and Circuit 


BEGIN 
Oe OBA Re MSG (.IRB, NMASC_STS_INV, 0, 0, 0); 


An Acceptable NICE message must conform with the following 
Byte 1 Function byte, accept either CHANGE or READ 


DECnet Ethernet Configurator Module Sep- 4: AX-11 Sliss-32 V4.0-74 Page 6 
process_request ° 18: gee7} 382 95: % 93 NICNF.SR RCIe CNFREQUES.832;1 . (4) 
1 ZSBTTL rocess re sauest st’ 
! ROUTINE PRS OCESS_REQUEST (IRB, CIRNAM_DSC) = 
te 
1 i This routine is yn he CHF SPROCESS REQUEST which is 
1! executed off the work 
0 1! Parse the mics ~¥ry ~ "t “Ecteraine the type of operation, 
1 1! and the circuits to b e affected. Dispatch to appropriate 
“ ¢ ! : routine if entire message is correct. 
414 13 
415 1! irb Interrupt request phect cogtetne all the info for 
8 § 1! a connection to NICONFIG. The IRB contains the 
: 4 : H NICE command which ott be A, 
0619 1 i cirnam_dsc Descriptor for storing of circuit name if one is 
0431 ! specified in command. 
O6ge 1 i-- 
04 1 
0424 BEGIN 
0425 MAP 
0426 CI RNAM DSC : 4 hence COSC$C_S_BLNI, 
ee IRB : REF BBLOCK T Interrupt request block 
0429 3 LOCAL 
0430 KNOWN, ! Was KNOWN CIRCUITS present in command 
0431 2 NICE : REF BBLOCK, ! Pointer into NICE command 
ott 2 FUNCTION : BBLOCK $1. 
04 2 OPTION : BBLOCK (1), 
0434 PROCESSING_SH OW, ! Boolean, true = SHOW, false = SET 
0435 SHOW i Coded for CHAR, SUMMARY or STATUS 
0436 LEN_REMAINING, 
0437 NICE_SURVEILLANCE : REF BBLOCK; ! Locate section of NICE command 
at ! containing the SURVEILLANCE parameter 
0440 BIND 
Rees CONF = UPLIT (ZASCIC "CONFIGURATOR') : VECTOR C,BYTE); 
CNFSTRACE (DBGS$C TRACE, SDESCRIPTOR(* TRACE"), 
SDESCRIPTOR T'process_request')); 
NICE = IRB CIRBST_REQUESTI; ! Beginning of NICE command 
IF .IRB f[Aesu_ 10381 ' The size of the NICE peseugs vee returned in the I0SB 
LSS 1 ! NICE message too short t 
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DECnet Ethernet Configurator Module a5 AX-11 Bliss-32 V4.0-74 p 7 
process_request ° 12-888 -1 198 6: 9: §3 MM cWe  CRCTENEREOUES 03951 = (4) 
6 ! Byte 2 Option By Se. 
6 ' bits contete. the entity type. Accept only MODULE 
? ot r Fung tion 


' 

' 

; ~ a indi cate summary/status/characteristics 
! ber f Funes on 
! niteates eosies set/define or clear/purge 
pit saeceenes enanies te ermanent or volatile, 

: on 

! Bytes 3-17 Module name “AStic athings @ CONFIGURATOR" 

! gyre 18,19 Code for circu 

: Code for Known, or count for circuit name 

: Bytes 21-22 or Next two bytes after circuit name: 

: code for surveillance 

} Next byte surveillance code, Enabled, 1-Disabled 


' 
Check the specified option and accept only SET or SHOW 


FUNCTION = NICE (0.0.8,0); 
OPTION = .NICE C0,8.8.0); 


IF .OPTION CNMASV_OPT_PER] ! There is no permanent data base so 
THEN ' DEFINE, LIST or PURGE not permitted 


BEGIN 
RETURN TRUE” MSG (. IRB, NMASC_STS_FUN, 0, 0, 0); 


Av OGSNOUR IN OOo ae 


e SEEISEEEELESEEEEEEEIEEEE 


86 RETUR 
i a 
34 Fh pai EQL NMASC_FNC_CHA ! If function is CHANGE, accept only SET 
91 BEGIN 
9 IF .OPTION CNMA$V_OPT_CLE) 
THEN 


94 BEG ' CLEAR rot permitted 
0495 ENFSBUFR ERR_MSG (.1RB, NMASC_STS _FUN, 0, 0, 0); 
Beas RETURN TRUE;~ 
97 END; 
PROCESSING_SHOW = FALSE; ! Must be a SET 


ELSE 
IF .FUNCTION EQL NMASC_FNC_REA 
THEN 


Oooo 

- 

oO 

MEW OO 


OuUFWnr—O0On 


BEGIN 
PROCESSING_SHOW = Ug ! It's a SHOW 
SHOW_INFO = OPTION NMASV _OPT_INFJ; ! cherecter istics. Summary or Status 


! Orcy accept SET or SHOW 


BEGIN 
RETURN TRUE” MSG (.IRB, NMASC_STS_FUN, 0, 0, 0); 


PUP PPA A AA AAAI 


SOOOOOOCOOoOOoooO ~ 
o 
co 
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voenb00" process_request 7 12-Sep-1984 93: 933 $3 NICNF.SR 


17 H Ensure that MODULE CONFIGURATOR was specified 
; ff gePtion CNMASV_OPT_ENT] NEQ NMASC_ENT_MOD 


<o- 


itn 


s% 


i 
C 


BEGIN 
ae ERR_MSG (.IRB, NMASC_STS_FUN, 0, 0, 0); 
ag TRUE ; 


on CHSEQL (.NICE (0,16,8,0], NICE C0,24,8,0], .CONF CO], CONF (1)) 


Ear AaUF RE MSG (.IRB, NMASC_STS_FUN, 0, 0, 0); 


™ 
co 


Check for CIRCUIT Circuit-name, or for KNOWN CIRCUITS 
If .NICE C15,0,16,0] NEQ NMASC_PCCN_CIR 
THEN 


BEGIN 
Sareea TRE MSG (.IRB, NMASC_STS_IDE, NMASC_ENT_CIR, 0, 0); 


AONMWMAMMNUIVIUIUTU 
—"OOONOuUSWwN—Ow” 
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DOWONAUNES WN $9 OO NAW WN) 0 OONOUE WN" O CONOU SW O0O 
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Be Se Se Ss Oe Se BH Se Se FF Se Se Se Se Se Ge Ss Se Se oe Se FH SH Se FH Se SH Ss Se Sse SH Se Se FH SF Se FSH Se SH SH SH Se Se SH SH Se SHH SE Se HSH Ss SH Oe ee 
o 
wr 


4 
4 
4 END; 
3 4 IF NICE (16,8,8,13 EL NMASC_ENT_KNO 
4 THEN ! Known circuits 
4 EGIN 
4 KNOWN = TRUE; 
: : Bice AVE LAE = NICE (16,16,8,0); 
4 ! Parse and store ASCIC circuit name 
; edt 
69 5 CIRNAM_LEN, 1 Use temp store, so that if CNFSGET_ZVM returns a failure, 
370 5 i calling routine won't erroneously attempt to deallocate 

71 5 CIRCUIT_PTR; 

iC; 5 

7 5 KNOWN = FALSE; 

74 5 CIRNAM LEN = .NICE (16,8,8,0); 

75 P 055 EXECUTE 

76 5 CNFSGET_ZVM ( CIRNAM_L Ne foe Pre _n POINTER]) ); 

77 560 ci DST COSCSW LENGTH _— 

78 561 CIRCUIT_PTR = NICE 6,8,0 

40 568 | 

a 564 ! Check the Length of the circuit name and ensure that it does 
4 32? not extend past the end of the NICE message. 

84 269 & IF (. CIRCUIT ath - Bice) Address of circuit minus start of Bice gives | Length of wie 
5 568 “CIRNAAD C_COSC$W_LENGTH] lus length of circuit name gives henge of NICE message u 
$ 370 att CIRBSW_ 1b§ B1) oes circuit name extend off end of NICE message? 

71 4 BEGIN 
9 276 4 CNFSBUFR_ERR_MSG (.IRB, NMASC_STS_IDE, NMASC_ENT_CIR, 0, 0); 
90 573 4 RETURN TRUE;~ 


CNFREQUES 
v04~600 
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END; 
CHSMOVE ( .CIRNAM_DSC COSCSW_LENGTH], .CIRCUIT_PTR, .CIRNAM_DSC CDSCSA_POINTER)); 


Surveillance code and vaiue follows after circuit name 


NICE_SURVEILLANCE = .CIRCUIT_PTR + . CIRNAM_DSC COSCS$W_LENGTH]; 


i] 
Compute length of remaining unparsed NICE message. 
LEN_REMAINING = .IRB CIRB$W_IOSB1] = <.NICE_SURVEILLANCE = .NICE); 


If SHOW then check that nothing is left unprocessed 
IF_ .PROCESSING_SHOW 
THEN 


BEGIN 
THe REMAINING NEQ 0 ! There is excess NICE message left unprocessed for 


at 
Had SaurR ERR MSG (.IRB, NMASC_STS_SIZ, 0, 0, 0); 
END 


LSE 
EXECUTE (CNFSPROCESS_SHOW (.12B, .KNOWN, .CIRNAM_DSC, .SHOW_INFO)); 


: For SET, check for SURVEII.LANCE TYPE (enabled = 0, disabled = 1) 
and dispatch to either enable or disable surveillance. 


BEGIN 


ees NEQ 0 ! If SURVEILLANCE not given, default to ENABLE 


BEGIN 

IF .LEN REMAINING NEQ 3 
THEN “y+ be a word for surveillance code and 
BEG oye e for the surveillance value. 
ah MSG (. IRB, NMASC_STS_PMS, wade CCN_SUR, 0, 0); 


END 
Heit SURVEILLANCE C0,0,16,0] NEQ NMASC_PCCN_SUR 

BEG 
eu SUPER MSG (.I1RB, NMASC_STS_PMS, NMASC_PCCN_SUR, 0, 0); 
EN 


IF -NICE SURVEILLANCE C0,16,8,03 EQL NMASC_SUR_ENA 
EXECUTE (CNF_ENABLE_ SURVEILLANCE (.IRB, .KNOWN, .CIRNAM_DSC)) 


<- 


CNFREQUES DECnet eeneress Configurator Module 16-50 Sep- 1984 AX-11 BLi 0-7 Pa 10 
voenboe process_request ° =300- 1387 96: 93; 3 NICNF.SRC helene hedu o°235, 31 wt (4) 
: 46 31 4 ELSE 

3 Z 4 EXECUTE (CNF_DISABLE_SURVEILLANCE (.2RB, .KNOWN, .CIRNAM_DSC)); 

; 6 ELSE ! Default to gerfing surveillance enabled 

; ? : 5 en: EXECUTE (CNF_ENABLE_SURVEILLANCE (.1RB, KNOWN, «CIRNAM_DSC)) 

: 454 5 Z 

; 455 3 RETURN TRUE; 

; 456 END; ! Routine process_request 


-PSECT SPLITS,NOWRT,NOEXE,2 


00 00 52 4F 54 41 52 55 47 49 46 GE GF 43 oc 90004 P.AAB: . ASCII <12>\CONFIGURATOR\<0><0><0> ; 
45 43 41 52 9? 0014 P.AAD: .ASCII \TRACE\ ; 
9019 ‘BLKB 

90000005 , O1C P.AAC: .LONG ; 
0990 99 0020 SADDRESS P.AAD ; 
a DHeFnnurew€rnrtevwFesSHHHSes& @G 4 3 P.AAF: tt yorecess_requesty : 
90000008 0034 P.AAE: .LONG 15 : 
0000000" 00038 “ADDRESS P.AAF : 

CONF = P.AAB 


| 

.PSECT $CODE$,NOWRT,2 
OFFC 00000 PROCESS_REQUEST: 

WOR 

| 


,WORD Save R2,R3,R4,R5,R6,R7,R8,RP,R10,R11 3 0404 
SE 08 ¢2 9000 SUBL2 #8, SP : 
0000" CF PUSHAB P.AAE + 0444 
7000" oo By RUBE ME fee 
00006 CF 03 FB O00F CALLS #3, CNFSTRACE : 
5B 04 ac D 9 14 MOVL IRB, RB + 0446 
56 65 A 3 018 MOVAB 101(R8), NICE : 
12 0€ As 81 o005 CHP 14(R8), #18 > 0449 
? 7¢ 00 CLRQ = =(SP) + 0452 
7E 04 4 LRL -(SP) 3 
7E 0 CF $ MNEGL 2. -(SP) : 
4 RB 5 3 
53 66 9 B 1$: MOVB (NICE), FUNCTION + 0479 
2 01 Ab 9 MOVE 3=s-:«1 (NI EES, OPTION + 0480 
3 1 BLSS 4$ > 048 
13 91 CMPB pooh #19 > 048 
8 le 7 BNEQ 2 ; 
2c 52 6 €E 9 BBS TION, 4$ ; 0492 
B D4 D CLAL PROCESSING. SHOW + 049 
1 F BRB : 0489 
14 91 06041 28: CMPB «FUNCTION, #20 > 0503 
\s 44 BNEQ ; 
5 D 46 MOVL #1, PROCESSING SHOW ; 0506 
6E 52 0 4 EF 0004 EXTZV #4. #3, OPTION, SHOW_INFO : 0507 
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CNFREQUES DECnet Ethernet Configurator Mcdule 16-Sep-1984 04:29 AX-11 Bliss-32 V4.0-7 
v06 process_request . 102300- 1384 9% 09:83 NICNF.SR ROIEN FREQUES.63 31 
07 #1 1 BNEQ 15$ 
OO6E 8F 6A 1 CMPW (NICE_SURVEILLANCE), #110 
Ye 1 BEQL 17$ 
E C 100 15$: CLRQ (SP) 
7E 6E or oA 1 t MOVZBL #110, -(SP) 
7E cE 1 MNEGL #29, =(SP) 
0D 118 16$ PUSHL R 
0000G CF ‘ \i5 cols O36 CNF SBUFR_ERR_MSG 
02 AA 9 11F 178% TSTB $ NICE. SURVEILLANCE) 
0D 1 1 BEQL 8$ 
08 A bp 1 PUSHL CIRNAM_DSC 
7E D 1 MOVQ R8, -(SP) 
0000v CF fe 12A CALLS #35, CNF_DISABLE_SURVEILLANCE 
B 11 OO1?F BRB 19$ 
08 A gp 151 18$ PUSHL CIRNAM_DSC 
7E 5 D 00134 MOVQ + -(SP 
0000vV CF 2 4 0137 CALLS #3, CNF =G NAGLE SURVEILLANCE 
3 0 €90013c 19$:  BLBC  S$TATUS,~ 
0 01 DO 0013F sve: MOVL #1, RO 
04 00142 21$: RET 


; Routine Size: 323 bytes, Routine Base: SCODE$S + 0041 


DECnet Ethernet Font iguretor Module 18500-1984 96:08:83 AX-11 Ohis wie y O° 735.4 
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ZSBTTL. ‘cnf_enable_surveilla 


Llance -Sep-1 NICNF 


Lanc 
ROUTINE CNF_ENABLE_SURVEILLANCE (IRB, KNOWN, CIRCUITNAM_DSC) = 


Jacket routine to ensure common error recovery and memory 
deallocation for the enabling of surveillance logic. 


irb Interrupt request block, containing request context 
known If true, then set surveillance for all circuits 
circuitnam_dsc Descriptor for name of circuit to set surveillance on. 


Always return success, any errors are buffered and then sent to 
connectee. 


CIRCUIT : REF BBLOCK, 
STATUS; 


CIRCUITNAM_DSC : REF BBLOCK; 


CNFSTRACE (DBGEC_TRACE, SDESCRIPTOR('TRACE'), 
SDESCRIPTOR T'cnf_enable_surveillance')); 


STATUS = ENABLE_SURVEILLANCE (.IRB, .KNOWN, .CIRCUITNAM_DSC); 


IF NOT .STATUS 
THEN !' buffer up an error response 
CNFSBUFR_ERR_MSG (.IRB, NMASC_STS_MPR, 0, .STATUS) 
ELSE ! Buffer up the ‘Success’ NICE response 
CNFSBUFR_NICE_MSG (.IRB, SUCCESS_NICE_DSC, 0); 


Check to ensure that there is still someting under surveillance 
otherwise, clear flag so that when execution returns to primary loop 
in CNFMAIN it will terminate. 


$B8_SURVEILLANCE_SET = FALSE; ' Assume none has been set 
T CNF$GQ_CIRSURLST; ! first circuit in list 
UIT NEG CNFS$GQ_CIRSURLST DO ! For every circuit 
C 
F 


UIT LCIR$B_SURVEIL) oS, LSnee om If surveillance is enabled 


he ee 
= z 


L 
SURVEILCANCE SET = TRU i 

CIRCUIT CCIRSL_LINKI; ! Next circuit in List 
END; ! WHILE traversing Circuit Linked List 


RETURN TRUE; 
END; ! Routine cnf_enable_surveillance 


-PSECT S$PLITS,NOWRT ,NOEXE,2 
45 43 41 52 54 OO003C P.AAH: .ASCII \TRACE\ 


Then ensure that image execution will continue 


DECnet Ethernet 
cnf_enable_surve 


7% 72 75 73 SF 65 6C $e 


; Routine Size: 


Font tgurater Module 
Llance 


61 
63 


00006 


0000Vv 


00006 


00006 


00006 


Routine 


6€ 
6E 


000 
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SCODES + 0184 


F 15 
16-Sep-1984 02:04:29 AX-11 Bliss-32 V4.0-74 
18-808- 1382 08:05:83 NICNF.SRCJCNFREQUES.B32; 1 
41 -BLKB 
44 P.AAG: .LONG 
* 00048 “ADDRESS P.AAH 
bes P.AAJ: .ASCII \cnf_enable_surveillance\ 
088 -BLKB 1 
* 00068 “ADDRESS P.AAJ 
.PSECT $CODE$,NOWRT,2 
0 00000 CNF_ENABLE_SURVEILLANCE: 
-WORD Save nothing 
9F 00002 PUSHAB  P.AAI 
oF 90006 PUSHAB P.AAG 
DD 0000A PUSHL #1 
€B 0000C CALLS #3, CNFSTRACE 
7D 00011 MOVO KNOWN, =(SP) 
DD 00015 PUSHL [| 
FB 90018 CALLS #3, ENABLE_SURVEILLANCE 
£8 0001D BLBS § STATUS, 1$ 
DD 00 0 PUSHL STAT 
D4 00022 CLRL.  =(SP) 
CE 00024 MNEGL #5, (SP) 
DD 900 7 PUSHL IR 
FB 0002A CALLS #4, CNFSBUFR_ERR_MSG 
11 0002F BRB 2$ 
D4 00031 1$: CLRL = = (SP) 
OF 00 3 PUSHAB SUCCESS_NICE_DSC 
DD 00037 PUSHL IR 
FB 0003A CALLS #3, CNFSBUFR_NICE_MSG 
D4 0003F 2$: CLRL  CNF $B. SURVEICLANCE_SET 
DO 0045 MOVL  CNFSGQ_CIRSURLST, CIRCUIT 
9€ 00048 3$: MOVAB CNFS$GQ~CIRSURLST, RO 
D1 00040 CMPL IRCUIT, RO 
33 0050 BEQL 
9 0052 TSTB =: 10 CIRCUIT) 
12 0005 BNEQ  4$ 
06 00057 MOVL #1, CNFSB_SURVEILLANCE_SET 
DO 0005¢ 4s: MOVL  (CIRCUIT)> CIRCUIT 
11 0005F BRB 3$ 
D0 006) 5$: MOVL #1, RO 
04 00064 RET 
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CNFREQUES DECnet Ethernet Configurator Module 18-5 -1984 02:04:29 AX-11 Bliss-32 V4.0-74 Pa 15 
vou b00" enable_surveillance , 197388-1382 95:05:85 ANCHE. SRCTENERENUES B33; 1 . (6) 
; 510 g 1 ZSBTTL ‘enable_surveillance ' 
; 1 2 ! ROUTINE ENABLE SURVEILLANCE (IRB, KNOWN, CIRCUITNAM_DSC) = 
; 18 94 1 144 
; 514 95 1! 
s 313 38 1! Perform some es gh before calling the routine which will 
3 1 97 1! handle the actual establishing of surveillance on a circuit by 
3 31 698 1! first determining if the requested circuit is an NI circuit. 
; + 34 } If known was specified, then discover all the NI circuits available. 
3 Hi ; | irb Interrupt request block, containing request context 
; 2 ¢ f § ; known If true, then set surveillance for all circuits 
; ; ¢ O08 : ! circuitnam_dsc Descriptor for name of circuit to set surveillance on. 
; 3 6 509 1 i-- ; 
; 708 BEGIN 
3 2 8 709 
: 2 9 gre CIRCUITNAM_DSC : REF BBLOCK; 
: 531 71g MACRO 
3 3 ¢ gel? STRINGS_ARE_EQUAL (COMMAND) = NOT (COMMAND)2; 
: 534 0715 LITERAL 
3 232 Orig NFB_ARGS = 4 ; 
: 071 NFBSIZ = NFBS$C_LENGTH + NFB_ARGS * 4, ! Network function block size 
; 537 o7i8 P2BUFSIZ = 4 +"NFBSC_CTX_SIZE, 
; 338 719 P4BUFSIZ = 512; 
3; 339 bred 
; 540 0721 LOC 
; 541 o7s¢ CIRNAM_DSC : VECTOR $i. 
; 306 07 DEVNAM_DSC : VECTOR § ° 
; 54 0724 10SB : estes. ° ' 10 status block 
> 544 0725 NFB : BBLOCK CNFBSIZI, ! Network function block 
3; 545 0726 ! with 4 optional field ID longwords 
3 en8 boS6 NFB_DESC : VECTOR C2), ! Descriptor of NFB 
: ae 0729 P2BUF _DSC : yecros C2), ! Descriptor of P2 buffer 
; He 0730 P2BUF': BBLOCK CP Bursif 
: 550 0731 P4BUF _DSC : VECTOR C23, ! Descriptor of P4 buffer 
3; 351 of ; P4BUF: BBLOCK CP4BUFSIZ), 
FH 26 7 SEARCHING, 
3 5 8 4 STATUS, 
3 554 735 STATE, ' Store circuit state 
3 22? 4 $ YPE; ' Store circuit type 
: 39 738 CNFSTRACE (DBGSC_TRACE, SDESCRIPTOR(' TRACE’), 
: 558 739 SDESCRIPTOR T'enable_surveillance')); 
; $59 740 
: 560 741 
; 561 74 ‘ 
: $¢ at : Translate circuit name to physical device name 
; fs 745 " CHSFILL (0, NFBSIZ, NFB); 
; 566 74 NFB CNFBSB_FCT) = NFBSC_FC_SHOW; ! Set function to SHOW 


H 15 
CNFREQUES DECnet Ethernet Configurator Module 16-Sep-1984 02:04: AX-11 Bliss-32 V4.0-74 Page 16 
Gone boo" enable_surveillance . 12-801 382 95:05:85 NICNF.SRCICNFREQUES. “33, 31 . (6) 
: of 74 NFB CNFBSB_DATABASE] = NFBSC_DB_CRI; ! Circuit database ; 
3 74 NFB [NFBSB_OPER = NFBSC_OP_EQL; ! Criteria for a match ; 
3 9 7 NFB LNFBSV But = Ma's # ! : 
; 570 7 NFB CNFBSL-SRCH_KEY] = NFBSC_WILDCARD; : 
; 71 7 § : NFB NFBSL_ SRCH KEY) = NFBSC_WILDCARD; : ; 
3 OF 7 ! NFB CNFBSB_OPER = NFBSC_OP_EQL; ! Criteria for a match ; 
: 57 754 NFB CNFBSL-FLDID = NFBSC_CRT_TYP; i Circuit type : 
: 57% 755 NFB ECNFBSL-FLDID] + 4 = NFBSC-CRI-STA; i Circuit state ; 
3 Sf 7 § NFB LNFBSL_FLDID] + 8 = NFBSC_CRI_NAM; ' Circuit name ; 
; f 734 NFB CNFBSL-FLDIDJ + 12 = NFBSC_CRT_VMSNAM i Circuit device name ; 
; 57 75 ; 
; 57 760 NFB_DESC £0} = NFBSIZ; ! Set up descriptor for NFB 5 
: 380 76 NFB-DESC [1] = NFB; 
H ag 76 P2BUF _DSC £4 =P 5 A $ 
3 287 764 P2BUF DSC [1] = P2B ; 
FH 765 CHSFICL (0 P2BUF SIT. * P2BUF); 3 
; 585 07 P4BUF _DSC fo = P4BUFSIZ; ; 
: ry 076 P4BUF_DSC C1] = P4BUF; : 
; 0768 : 
; 588 769 SEARCHING = TRUE; ! If searching for s pers itis ; 
; 589 770 i “circuit, keep calling NETACP F 
; 590 0771 3 
; 591 077 ' : 
3 236 77 { Call the NETACP and get a buffer full of circuit names and 3 
; W 774 ! corres ity J devices. Keep calling until it returns 3 
3 age a } SS$_ENDOFFIL : 
; 596 077 WHILE .SEARCHING DO 3 
; 597 0778 BEGIN 3 
; 598 0779 : 
: 2p OBS CHSFILL (0, P4BUFSIZ, P4BUF); : 
3; 601 P Ores STATUS = Serey ( FUNC = IO$_ACPCONTROL, ! Obtain circuit name and circuit device name F 
3 o0¢ P 07 CHAN = .CNFSW_NETCHAN, ' Use assigned channel 3 
: 60 P 07 EFN = CNFSC SS YNCH EFN, ! Synchronous Event flag number 3 
3: 604 P sf 5 10SB = 10SB7 3 
; 605 P 07 Pl = wee SP DESC ' Network function block 3 
; 606 P 078 P2 = ps¢ ' Work space 3 
; 607 0788 PG = PEBUE DSCs; i Buffer for return strings ; 
; 608 1494 3 
3 609 7 IF_.STATUS ; 
: 610 791 THEN ' successful submission 3 
: ot) a3 STATUS = .10SB (0,0,16,0); ! pick up final status : 
g gig 796 IF NOT .STATUS ; 
: 614 795 THEN 3 
3 ot3 re 4 BEGIN 3 
: 1g 797 & IF .STATUS EQL SSS$_ENDOFFILE é 
3 61 re 4 THEN 3 
; 618 7 BEGIN 
3; 619 00 IF NOT .KNOWN 
: 620 1 — 
; 621 § 6 ! We were looking for a specific circuit and didn't find it 
; 6 ¢ it 6 OEP SUFR ere “MSG (. IRB, NMASC_STS_ ipes NMASC_ENT_CIR, 0, CIRCU UITNAM “sts; 
; @ 6 RETURN TRUE 
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snable.sureeiiiane : 12-808-13be 95525583 FANCAE Shisenze Mie0"285. er 


! We got it and can quit now 


MVMIMIANAUIMUIAUI 


‘Cd Cd Co 2-09 Cd Co Co OD CO 


! while INCRementing through Q10 return buffer 
! WHILE performing Q10s to NETACP 


5 END; 
Og SEARCHING = FALSE; ! That's all she wrote, so quit the loop 
oe 2 pxJTLOOP; P 
M4 < 
89 4 SIGNAL (CNFS LOGIC, 0, .STATUS); ! Otherwise, there was an error we'd better report 
10 RETURN .STATOS; 
1} END; 
o i PTR = P4BUF; 
18 ; 
O8g : fycle through circuit names returned in P4 buffer and 
1 ! if KNOWN is selection criteria then set surveillance on all NI 
Bais ! circuit devices otherwise search for the requested circuit 
+ $84 } and set surveillance on it if it is an NI circuit. 
08 1 INCR CIRCUITS FROM 1 TO .P2BUF DO 
4 5 4 BEGIN 
8 4 4 TYPE = . (PTR) < 0, 32 >; 
0825 4 PTR = .PTR + 4; 
0826 4 
0827 4 STATE = .(.PTR) < 0, 32 >; ! Get circuit state 
thy ? PTR = .PTR + 4; 
$850 6 CIRNAM_DSC £0} = .(.PTR) < 0, 16 >; ! Length of circuit name 
eth ? CIRNAM_DSC (1) = (.PTR) < 16, 8 >; ! Address of start of circuit name 
0836 2 PTR = .PTR + 2 + .CIRNAM_DSC (0); 
oases 4 DEVNAM_DSC £0} = .(.PTR) < 0, 16 >; ' Length of circuit name 
+44 2 DEVNAM_DSC [1] = (.PTR) < 16, 8 >; ! Address of start of circuit name 
0838 4 FTIR = .PTR + 2 + .DEVNAM_DSC (0); 
0839 4 
0840 4 ! 
Bees 2 Only interested in NI circuits with State ON 
ages 4 if .TYPE EQL NMASC_CIRTY_NI AND .STATE EQL NMASC_STATE_ON 
0845 4 IF .KNOWN 
Bae6 4 THEN 
0847 5 BEGIN ! Set surveillance on ali NI circuits 
+k 2 EXECUTE (SURVEIL (CIRNAM_DSC, DEVNAM_DSC)); 
0849 5 END ’ 
0851 5 BEGIN ! Looking for a specific circuit 7 
$ § g a aeeee tte acne (STRSCOMPARE (.CIRCUIT DSC, CIRNAM_DSC)) 
4 6 
6 
; 


—OOOnouw 


Soooooo 


oS 


BEGIN 

EXECUTE (SURVEIL (CIRNAM_DSC, DEVNAM_DSC)); 

SEARCHING = FALSE; 
| 
| 
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voen bob" ° 14 ett 95:06:83 NICNF.SR RCION NFREQ UES. “533.1 ee (bS 


enable_surveillance 


i Bt gem 


! Routine enable_surveillance 


«PSECT SPLITS,NOWRT ,NOEXE,2 


45 43 41 52 54 pooeC P.AAL: .ASCII \TRACE\ 8 
0071 “BL o 

SUES, HE PMS Ea 2 
6C 6C 69 65 76 72 75 73 SF 65 6€ ¢ 61 6€ $5 gore P.AAN: ASCII \enapte, surveillance\ : 
65 63 6€ 61 00088 ; 

QO08F -BLKB 1 
00000013 00090 P.AAM: .LONG 19 8 
00000000° 00094 -ADDRESS P.AAN 3 


~-EXTRN SYS$Q10W 
-PSECT S$CODES,NOWRT,2 
O7FC 00000 ENABLE apt? aie pb 


Save R2,R3,R4,R5,R6,R7,R8,R9,-R10 : 0692 

5E FD6C CE 9€ 0000 hOVAB =660(SP5, SP : 
0000" CF 9F 0000 PUSHAB  P.AAM + 0739 
0000" CF 9F 0000B PUSHAB  P.AAK : 0738 

01 DD O000F PUSHL #i 3 

00006 CF 03 FB 00011 CALLS #3, CNFSTRACE ; 

20 6E 00 2C 00016 MOVCS #0. (SP), #0, #32, NFB : 

C8 AD 00018 ; 
c8 AD 2 90 0001D MOVB #34, NFB 3; 0747 
CA AD 4 Ft 00021 MOVW #4, *NFB+2 : 0748 
(9 «AD 2 B8 00025 BISB2 #2, NEB+l : 0750 
CC AD 01 DO 00029 MOVL > 0751 
D8 AD 04010020 8F 00 0002D MOYL AL Sd NFB+16 : 0754 
DC AD 04010013 8F DO 00035 MOVL 867174419. NFB+20 > 0755 
EO AD 04020041 ar DO 00030 MOVL #6736 0001; NFB+24 : 0756 
£4 AD 04020042 8F DO 00045 MOVL #97240 40002, eNtB+es : 0757 
CO AD 20 DO 00040 MOVL : 0760 
C4 AD C8 AD 9E 00051 MOVAB NFB, ire ~BESC : 0761 
B8 AD 44 8F 9A 00056 MOVZBL #68, P2BOF DSC : 0763 
BC AD FF74 CD 9E 0005B ree POBUE P2B0F _DSC+4 3: 0764 
0044 &8F 00 6£ ene 00 2c 90061 MOVC , (SP), #07 #68, P2BUF > 0765 
FF6C cD 0200 Sr 3c 00068 MOVZWL wi P4BUF DSC : 0766 
FF70 CD 6— 9 007¢ MOVAB P4BUF, P4BUF DSC +4 : 0767 
58 1 D 907 MOVL #1, SEARCHING : 0769 
SE 8 : O7A 1$: BLBC SEARCHIN ING, 4$ : 0777 
0200 28F 00 6E 0 C 0007D MOVCS #0, (SP), #0, #512, P4BUF : 0780 
sf 7¢ 60 3 CLRQ = SP) : 0788 

FF6C CD F 000 PUSHAB P4BUF_DSC ; 

E v4 000 CLRL = = (SP) ; 

B8 AD OF 0 PUSHAB P2BUF_DSC ; 

CO AD OF 30 PUSHAB NFB DESC ; 

7E 7¢ 0009 CLRQ = =( SP) ; 


000000006 
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000000006 


nn 
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0000v 


DECnet Ethernet Configurator Module 
enable_surveillance 


000000006 


000000006 


AVM  NWAM NS OIUIM ODN OO VN NOOO VT "OCO 


 < OOViKQr NOOVNIWNOOF OOP PUN FP VMNOOOWP 


© 
16- 
14 


ad 


BD 9009 
C 9A 
FB OOOAS 
08 OAC 
Re Soone 
£8 Dodes 
» 4d 2s: 
Be 
F C 
D Q00C9 
CE QOOCC 
DD QOOCF 
FB Bobs 
11 000D 
Be Bo bog 3$ 
1 Q00D8 
DD QOODE 5 
D4 QO0E 
DD 44 
FB QOOE 
Be O00Fe 
9E S008 6 
D4 OO0F6 
11 QO0F8 
7D QOOFA 7 
3C OOOFD 
9E 00101 
C1 00106 
9E 00108 
3C 0010F 
9E Bale 
C1 00118 
9E 83139 
12 00194 
08 004 6 
ig 0128 
SF Oise 
nie 
8 00139 
4 0015C 
F 0015D 8$: 
DD 149 
Fe 14 
3 14A 
F 0014 
FB O01 
£5 1 
D4 00158 


O82 98:25:83 | YANEAY Oh ise ze Mees 
1958 
#56 
CF $W_NETCHAN 


= (SP) 


#CNFS YNCH_EFN 
ne, Erézatoo 


TATUS, 6$ 
STATUS, #2160 
KNOWN, 3$ 
CIRCULTNAM_DSC 
#3, -(SP) 
4 -(SP) 
#5, CNFSBUFR_ERR_MSG 
SEARCHING 
11$ 

STATUS 
=(SP) 
uCNFS LOGIC 
#3, LIBSSIGNAL 
STATUS, RO 


P4BUF, PTR 
CIRCUITS 


ovcvc vo tV9I8%.O 
“UMMM —1 Nee 


KNOWN, 8$ 
DEVNAM_DSC 
CIRNAR DSC 
#2, SURVEIL 
STATUS, 9$ 


us, 1 
CHING 


Sera Sixes Sosy tenttowrerer mene WERecHats ABsQh@d RGM, 


06 11 0015D BRB 10$ : 0854 

95 52 FF7G ts 12 98 AOBLEQ PaBUr CIRCUITS, 7$ : 331 
50 iat 0 168 138: cy, oi. RO : O56 

Be 168 12$: RET : : $3 


; Routine Size: 364 bytes, Routine Base: S$CODES + O1E9 
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CNFREQUES DECnet Ethernet Configurator Module 16-Sep-1984 02:04:29 AX-11 Bliss-32 V4.0-74 
y06~500 surveil Begin surveillance of circuit 12-808=1 38 95:09:83 NICNF. SRCICNFREQUES .B3 $¥ 


: Oe 2 | Routine sORUETC (CRRAAM_BSe. OEVNAR Doe sree 

* ° = 

: Be ey | - - 

; ons re: 1 S44 

: 9 : 1! 

; 690 Y 1! This is the routine that actually initiates surveillance of a circuit. 
: $3) : } Place circuit name and device in circuit List and initiate surveillance. 
; 69 0875 1! cirnam_dsc For checking if this circuit is already in our Lis* 
; O38 bees } of circuits that we know about. 

; 696 ef 1! devnam_dsc Physical device name corresponding to the circuit 
; 69 71a 2 for communicating with the driver. 

> 698 878 1! 

; 699 0879 1 !-- 

: 700 0880 1 

: 701 ert BEGIN 

: 70 8 LOCAL 

; 88 C 2 REF BBLOCK 

> 704 0884 P2 DESC : BBLOCK COSC$C_S_BLNI, 

: 705 0885 STATUS; 

: 706 088 

; 707 088 LITERAL 

: 708 0888 P2BUFLEN = 72 

; 209 0889 REMOTE_CONSOLE_PROTOCOL = %X'260'; 

3 ri 0891 OWN 

: at; 089 } ; 

3 ay Baez P2 buffer for talking with the device driver 

; 715 895 P2BUF : BBLOCK CP2BUFLEN) 

; 716 4 INITIAL ¢ 

3: 717 089 RD (NMASC_PCLI_BUS), 64, 

3; 718 43 WORD (NMASC_PCLI_BFN), 1, 

3; 719 8 WORD (NMASC-PCLI-PRM), NMASC_STATE_OFF, 

; 720 900 RD (NMASC_PCLI_MLT), NMASC_STATE_OFF, 

3; 721 0901 WORD (NMASC_PCLI_DCH), NMASC_STATE_OFF, 

. F ¢ 090 WORD (NMASC_PCLI-CRC), NMASC_STATE_ON, 
ee 090 WORD (NMASC_PCLI_PAD), NMASC_STATE_ON, 

: 726 0904 WORD (NMASC_PCLI-PTY), REMOTE CONSOLE PROTOCOL, 
3; 725 0905 WORD (NMASC~PCLI-CON), NMASC_CINCN_NOR, 

. © $ pans WORD (NMASC_PCLI-ACC), NMASC_ACC_SAR, 

. £ ) WORD (NMASC Poa 

; 728 908 WORD (8)7 WORD (NMASC _LINMC SET), 
: 729 BYTE (ZX°AB'), BYTE (2x°00'S, 

: £ 10 BYTE (Zx°00"), BYTE (2x'02"), 

3; «731 911 BYTE (2x"00"), BYTE (2x'00") 

: rag aig : 

oF 91 

. 2 914 

; 735 15 

2 1g MAP 

ce 1 CIRNAM_DSC : REF BBLOCK, 

3 33 14 DEVNAM_DSC : REF BBLOCK; 

: 739 91 

: 740 330 

3: 741 921 CNFSTRACE (DBGSC_TRACE, SDESCRIPTOR(*TRACE"), 


caning 


DECne 
surve 


SODODODOBDODOODOODOOD 


PWN ANIWInonononoronorery 


=O ODNAUNE WN O OONAOUS WT 


Cooo°oo 


r+ 4 


SSSBERESSIEIEISS 


z 


RIPON WIWI WWII NAINA WANA ANA AI IPPON EB 


oO 
SSF 


Oo oO 
SINING 
MEIN 


ooo 
~~ 
co 


ic 


thernet Confi 
Begin survei 


lance of ¢ Yreuit NICNF. Bk 


SDESCRIPTOR (‘surveil')); 


i] 
} Check and see if we already know about this circuit. 
iF CNFSLOCATE_CIR_BLK (.CIRNAM_DSC, CIR) 


BEGIN !' Its in our List 
i -CIR CCIRSB_SURVEIL] EQL NMASC_SUR _ENA 
THEN RETURN TROE; ! And surveillance is already set 


Else, make sure the buffers were deallocated, since ghey SYSIDM 
The eoger’ ae - ore if the buffers are there when it goes td 
allocate n 

Then skip the “cireuit block allocation and go to the set up. 


CIR CCIRSL_SYSIDMBUF) NEQ 0 ! If the buffer there? 


_ 


pror( TRACE ane £ ‘ 

ers in place on re-activati 
DM_BUFSIZ), CIR CCIRSL “SiEiBhaur hy): 
YP"BUFSIZ), CIR CCIRSL-ADRTYPBUF 


1 
This is the first we've hee 


d of th " circuit, so create a 
control block for it and fill it 


e 
l in 


BEGIN 
EXECUTE ( CNFSGET_ZVM ( ZREFC(CIRSC_LENGTH), CIR)); 


CIR CCIRSW_SIZEJ = CIRSC_LENGTH; 


CIR MT CIRNAMLEN] = .CIRNAM_DSC CDSC$W_LENGTHI); ave the name 
CH wir tt Scisde eae Cos C$W_LENGTH], .CIRNAM_DSC toscsa: POINTER 
CIR CCIRS$SW_DEVRAMLEN] = .DEVNAM DSC CDSC$W_LENGTHI; Save the device name 


s° 
CHSMOVE ( pa ess Fes DSC$W_LENGTHJ, .DEVRAM_DSC toscsa: POINTER), 


Initi al ize the Linked List for ng pode's J the system ID messages 
that will be gathered for this circui 

IR FCIRSL. SIDFLINK] = CIR CCIRSL_SIDFLINK); 

IR CCIRSL-SIDBLINK) = CIR CCIRSL-SIDFLINK); 


eee OO er er ere 


Place in on our List of circuits 
INSQUE (.CIR, .CNFSGQ_CIRSURLST (1)); 


CIR CCIRSB_SURVEIL] = NMASC_SUR_ENA; ' Record that surveillance is enabled 


N15 
rator dul 16-Sep-1984 04:29 AX-11 8 =32 v4.0-74 
at y 1exgee~}38e 93:05:83 (Sine RENUES 03951 


roe 


GIN If this happens. there is probably a timing bug around 


—TOMNOOWZ BK KCK TO ™MVOOZ SE ACH ITO WM OOCOZ™T SE KCK ITO *MOOOZ Sr ACK TO MIO 


16 
R DEC bh fi -Sep-1984 02:04: -1 iss- 4.0-74 P 
“G00 = Surveill’ ‘Begin surveif tance of cireuit Eee} 99:06:29 patch? Ouigeste ues O-7e2 ae 


' 
Assign channel to NI driver 


i 
$1 
THEN. 


BEGIN 
SIGNAL (CNF$_DRVRSTRT, 0, .STATUS); 
a -STATOS; 


Record the eyetes time when surveillance began since this 
info is required on a SHOW request. 


' 
i 
i 
' 
EXECUTE (SGETTIM (TIMADR = CIR CCIRSQ_ELAPSDTIM]) ); 
' 
i 


; § ATUS = SASSIGN (CHAN = CIR CCIRSW_CHAN], DEVNAM = .DEVNAM_DSC); 

3 EN 

3 5 BEGIN Fe 

3 SIGNAL cre SWAN, 0, .STATUS); 

; 80 CIR CCIR$B_SORVEIL] = NMASC_SUR_DIS; ! Record that surveillance is disabled 
3 43 RETURN .STATUS; 

3 END; 

3 1 

3 1 : 

3 i : Get ready to talk to device driver 

; 814 P2_DESC = 0; ! Zero first longword 

; 815 P2_DESC He yah} = P2BUFLEN; ' Set buffer size 

3 18 36 P2_DESC CDSCSA_POINTER) = P2BUF; ! Pointer to buffer 

: 818 998 : 

3 19 999 : Issue a info to driver so that future reads will get only 
3 st 4 } the system ID messages that are broadcast 

; ¢ . ISR6 STATUS = $01]0W 

; 4 P 1004 FUNC = C108 FET Caan OR  Wicteesbhtes OR IOSM_STARTUP), 

3 5 P 1005 CHAN = ,CIR CCIRSW_CHAN), 

3 $ P 128 EFN = CNFSC_SYNCH_EFN ! Synchronous Event flag number 
; 2 P 1 10SB = CIR CCIR$W~10S6), 

3 8 P 1 P2 = DESC 

3 9 100 ); 

3 0 101 

; 1 101 IF NOT .STATUS 

3 § 101 THEN 

; 101 BEGIN 

3 101 SIGNAL (CNF$_DRVRSTRT, 0, .STATUS); : 
; 835 101 CIR CCIRSB_SORVEIL] = NMASC_SUR_DIS; §! Record that surveillance is disabled 
3 101 RETURN .STATUS; 

3 3 ' : END; 

3 101 STATUS = .CIR CCIR$W_10SB8); ! pick up final status 
; 1 IF NOT .STATUS 

3 7 THEN 

3; «684 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

s 85 1 

3; 85 1 

; «85 1 

3 2 1 

3 1 

3 5 1 


MEW 30 OONOUS WO 0O® 
MEWN 9 OONOUES WN $0 OONOUES WO 0@ 


WAIN WIATOPOPONONNOPONPONONY 


Issue Q10 to device driver to request broadcast messages 


16 
Vos-000 «= sSurvell. Begin surveifiance of circuit batts 93:25:83 — ENTeNF. SacSenPREQUES.039; 1 ‘eg 
; and set AST for processing System ID messages as they are read. 
EXECUTE (CNFSREAD_SYSIDM (.CIR)); 
RETURN TRUE; 
END; 


COD 
SSeS 


! Routine surveil 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


45 43 41 52 54 4943 P.AAP: .ASCII \TRACE\ 3 
090 -BLKB 
00 4 5 44 P.AAO: .LONG 3 
9 0 " O0A4 «ADDRESS P.AAP 3 
6C 69 65 76 72 Bpae PAAR: onset yourvett\ : 
80000000" 900B4 M7? “ADDRESS P.AAR 
52 4F 52 52 45 20 2A 2A 2A 20 45 43 41 39 0 Reed P.AAT: .ASCII _— wee ERROR\ : 
494 4 4 OOC8 P.AAS: .LONG 15 3 
099009 ' 44 sADDRESS P.AAT 3 
iE; 65 66 66 75 6 20 20 6C 69 65 76 72 7 O0D0 P.AAV: .ASCII \surveil buffers in place on re-activati\ ; 
72 20 6€ 6F 20 65 63 61 6C 70 $9 of 69 4 7 OODF 5 
69 74 61 76 69 74 61 2D 6 Bee s 
6E 6F O00F -ASCI1 = \on\ i 
OOFA -BLKB 2 

eae etd OOFC P.AAU: .LONG 42 3 
00000000° 00100 ADDRESS P.AAV ; 

-PSECT SOWNS,NOEXE,2 
OAF1 00008 P2BUF: .WORD 2801 : 
00000040 Q000A -LONG 64 3 
0451 O000E «WORD 1105 3 
00000001 00010 «LONG 1 5 
Bae 0014 «WORD 2840 : 
00000001 00016 «LONG 1 3 
poy OO1A «WORD gest F 
00000001 0001¢ LONG 3 
18 4 WORD e645 3 
ong tet as a , 
00009808 6 «LONG : 
ge C » WORD 842 3 
00000000 3 - LONG 3 
«WORD 830 3 
0000 0 -LONG 608 : 
«WORD 1110 3 
0600000: & - LONG 3 
BAe 5 «WORD 846 : 
0000 4 - LONG 3 
F 44 . WORD 831 3 
: re . WORD 3 

4 ~ WORD 

AB O4A BYTE -85 2 


D 16 
CNFREQUES DECnet Ethernet Configurator Module 16-Sep-1984 02:04: AX-11 Bliss-32 V4.0-74 Pa 5 
yoenboo" surestt Begin surveillance of circuit 13-808-1 382 95:05:85 NICNF SRCIENFREGUES. 035; 1 ve 3 
48 -BYTE ; 
4C “BYTE : 
40 BYTE : 
4E BYTE : 
0 4F “BYTE : 
.EXTRN SYSSASSIGN, SYSSGETTIM 
-PSECT $CODES,NOWRT,2 
O1FC 00000 SURVEIL:.WORD Save R2,R3,R4,R5,R6,R7,R8 ; 0866 
58 900000006 00 9 0 MOVAB LIBSSIGNAL, R& : 
G 8F D MOVL  #CNFS_DRVRSTRT, R7 : 
5E 10 § 001 SUBL2 #16, SP ; 
0000' CF 9F 0001 PUSHAB P.AAQ + 0922 
0000" CF 9F 0001 PUSHAB P.AAO + 0921 
o1 DD 00018 PUSHL #1 ; 
00006 CF 3 FB 901 CALLS #3, CNFSTRACE : 
04 AE 9F 00 PUSHAB CIR + 0927 
53 04 AC DO 000 OVL CIRNAM_DSC, R3 : 
53 DD 00029 PUSHL R : 
0000v CF 02 FB 00028 CALLS #2, GNF SLOCATE_CIR_BLK ; 
50 0 €9 000 9 BLBC =E_—sWwRRO,_-3$ ; 
52 04 AE 060 0003 MOVL CIR, R2 + 0930 
0A Ae 95 00037 TSTB ~—-: 10(R2) : 
9 12 0003A BNEQ 1$ ; 
0122 31 0003C BRW 12$ ; 
38 Ae DS OOO3F 18: TSTL  56<R2) : 0938. 
0 12 90042 BNEQ 2$ ; 
0080 31 00044 BRW 6$ : 
0000" CF 9F 00047 2$: PUSHAB P.AAU 5 0942, 
0000' CF 9F 90048 PUSHAB P.AAS + 0941. 
01 DD 0004F PUSHL #1 : | 
00006 CF 03 FB 00051 CALLS #3, GNF STRACE ; 
38 43=6A2 «OF 00056 PUSHAB 56(R2) > 0943 
04 AE 000000006 8F 00 00059 MOVL #SYSIDM_BUFSIZ, 4(SP) ; 
04 AE 9F 00061 PUSHAB 4(SP) ; 
00006 CF 9 FB 00064 CALLS #2, CNFSFREE_VM : 
27 9 00069 BLBC STATUS, 4$ ; 
3c)0—A2sOSF:«0006C PUSHAB 60(R2) + 0944 
04 AE 000000006 8F D0 O06 OVL MADRTYP_BUFSIZ, 4(SP) ; 
04 AE 9F 00077 PUSHAB 4(SP) ; 
00006 CF Q FB OO7A CALLS #2, CNFSFREE_VM : 
45 orf BLBS STATUS, 6$ ; 
4 S RET ; 
04 AE 9F 00083 3S: PUSH CIR > 0953 
04 AE 48 8F 9A 00086 MOVZBL #72, 4(SP) : 
04 AE 9F 000 PUSHAB 4(SP) ; 
00006 CF 9 Fe 0 : CALLS #2, CNFSGET_ZVM ; 
01 Fs 4$: BLBS STATUS, 5 ; 
56 06 AE dO 3 5$: MOVL c1R. R6 > 0955 
AG 48 BF 9 MOVZBW #72, 8(R6) . ; 
16 A 63 8 A mMOVW (R35, 22 (RG) + 0957 
18 Ab 04 : é AG MOVC3 (R3). a4(R3), 24(R6) : 0959 
08 AC DO OO0AA MOVL DEVNAM psc RO : 0960 
28 «Ab 60 BO OOOAE MOVW (RO), S0(RO) ; 


16 
CNFREQUES DECnet Ethernet Configurator Module 16-5¢ -1984 :04: AX-11 Bliss-32 V4.0-74 
ayia surveil Begin surveillance of circuit 1 =3087 1383 95:09:83 NICNF.SRC tnPREOUES .08 31 
2A AG 046 B80 60 28 82 MOVC3 (RO), @4(RO), 42(R6) 
40 Ab 40 A6 SE 0008 MOVAB 64(R6), 64(R6) 
44 AG 4 Ab — 0008 OVAB 64(R6), 68(R6) 
00006 DF 6 F C INSGUE (R6), GCNFSGO_CIRSURLST#4 
2 04 AE C? 6$: OVL CIR R 
A he 94 000CB CLRB (R2) 
7 C 000¢ CLRQ = = (SP) 
146 Ad 9F 0000 PUSHAB 20(R2) 
08 AC OD OD PUSHL DEVNAM_DSC 
000000006 99 oe 00 CALLS #4, SYSSASSIG 
DO 000DD MOV. RO, STATUS 
0c é M: BLBS §§ STATUS, 7$ 
DD OO0E PUSHL 5TA 
E D4 000E CLRL. = = (SP) 
000000006 i DD O00E PUSHL #CNFS$_CHAN 
— 11 QOED BRB ag 
08 AE D4 OOOEF 7S: CLRL Pe DESC 
08 AE 4 8F 98 Oore MOVZ72BW #72, P2_DESC 
OC AE 0000° cr 9E OO0F MOVAB P2BUF, P2_DESC+4 
— 7¢ OOFD CLRQ © =(SP) 
7E 7C OOOFF Q (SP) 
18 AE 9F 00101 PUSHAB P2_DESC 
7E 7C 00104 a (SP) 
3 D4 00106 L =(SP) 
0c A2 9F 0010 PUSHAB 12(R2) 
7E 025A BF ¢ 00108 MOVZWL #602, -(SP) 
7E A2 60110 CVTWL  20(R3), =(SP) 
000000006 1 8F DD 00114 PUSHL #CNFSC SYNCH _EFN 
000000006 09 OC FB OO1IA CALLS #12, SYS$QI00 
5 29 D0 0121 MOVL RO, STATUS 
OF 53 £8 00124 LBS STATUS, 9$ 
53 DD 00107 PUSHL STATUS 
ze D4 00129 CLRL. = (SP) 
57 DD 00128 PUSHL 7 
68 03 FB 00120 8$ CALLS #3, LIBSSIGNAL 
OA A2 01 9 001 0 OVB #1. 10(R2) 
10 11 001 RB 10$ 
53 oc A 38 00136 9$ CVTWL © 12(R2), STATUS 
0D 53 EB 0013A LBS. STATUS. 11$ 
5 dD 91 D PUSHL STATUS 
: D4 0013F CLRL =(SP) 
57 DD 00141 PUSHL 7 
68 03 FB 143 CALLS #3, LIBSSIGNAL 
50 i 146 10$: MOVE STATUS, RO 
30 A2 9F 0014A 11$:  PUSHAB 48(R2) 
000000006 00 gi FB 014D CALLS #1, SYSSGEITIN 
0D 9 E9 00154 BLBC STATUS, 13$ 
52 DD o1 7 PUSHL R 
00006 CF QI FB 159 CALLS #1, CNFSREAD_SYSIDM 
3 0 €9 001 ‘ BLBC STATUS, 13% 
0 01 DO 0016 128: MOVL # 
04 00164 13$: RET 


3; Routine Size: 357 bytes, Routine Base: S$CODE$ + 0355 


Page 
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CNFR S DECnet Ethernet Configurator Module 16-Sep-1984 02:04:29 AX-1° Bliss-32 V4.0-74 P 7 
V04 CNFSLOCATE_CIR_BLK ocate and return circuit 12=868-1 382 93:09:83 NICNF ..SRCJCNFREQUES.832;1 _ BS 
$ 3 1 g 1 ZSBTTL oer Sy OCATE CIR_BLK Locate and return circuit block’ 
3 ¢ : Z ! GLOBAL ROUTINE CNFSCOCATE_CIR_BLK (CIRNAMDSC, CIRBLK) = 
: 1065 1 !44 
; 86 : § ! FUNCTIONAL DESCRIPTION: 
; 869 1068 1! Using the descriptor of the ASCII circuit name, search the 
; 870 1069 1! Linked List of circuit blocks to determine the address of 
; 871 1050 1! the circuit block for the requested circuit name. If block 
3 r 1823 ; } is not present, return false, else return true. 
3 re 1988 ! FORMAL PARAMETERS: 
; f 132? : } cirnamdsc Descriptor of circuit name 
; 878 1089 1! cirblk Address of longword in which to the return the 
; 879 1058 1! address of the circuit block if it is located 
; 880 1059 1! 
; 881 1060 1 ! IMPLICIT INPUTS: 
; +88 1061 1! cnf$gq_cirsurlst List of circuits 
; 1906 1! 
3; 6884 106 1 ! ROUTINE VALUE: 
; 885 1064 1! 
; 886 1065 1! True Circuit block was found and address was returned in 
; 887 1966 7s cirblk. 
; 888 1067 1! 
; 889 1068 1! False Circuit block was not found 
; 890 1069 1 !<- 
; 891 1070 1 
; 89 1071 BEGIN 
; 89 1976 LOCAL 
; 894 107 CIRCUIT : REF BBLOCK; 
; 895 1074 
; 453 ta CIRNAMDSC : REF BBLOCK; 
; 898 1077 CIRCUIT = .CNF$GQ_CIRSURLST; ' First circuit in List 
3 345 1978 WHILE .CIRCUIT NEO CNF$GQ_CIRSURLST dO ' For all circuits in List 
; 901 1080 IF CHSEQL (. CIRCUIT Shey BT erteg CIRCUIT Se SET bong 
: 90 1081 ~CIRNAMDSC”CDSC$W_LENGTHJ, .CIRNAMDSC~CDSCSA_POINTER) 
:; 90 1056 THEN 
3; 904 1083 4 BEGIN 
; 905 1084 4 -CIRBLK = .CIRCUIT; ! Return address of matching block 
3 398 19 5 4 RETURN TRUE; 
3 1 4 END 
; 908 108 ; ELSE 
: 909 1088 CIRCUIT = .CIRCUIT CCIRSL_LINKI; ! Get next block | 
; 319 1989 ND; ! WHICE traversing Circuit Linked List 
; aig 1091 RETURN FALSE; 
3; wt 1092 END; ! Routine CNFSLOCATE_CIR_BLK 


003¢ 00000 ENTRY CNFSLOCATE_CIR_BLK, Save R2,R3,R4,R5 > 1043 


16 
CNFREQUES DECnet Ethernet wh urator Module 18- $e0-1984 9 AX-11 Bliss-32 V4,0-74 Pa 8 
v04 CNF SLOCATE_CIR_BLK ocate and return circuit 12-8 08-1 9b 95:95 95 NICNF.SRCICNFREQUES.B32; 31 - (BS 
4 0000G CF 4 b006 MOVL CNF$GQ_CIRSURLST, CIRCUIT 3; 1077 
4 AC D 0 MOVL CIRNAMDSC, R : 1081 
0 00006 cf 0 1$: MOVAB CNF$GQ_CIRSURLST, RO : 1078 
0 4 o 1 CMPL IRCUIT, RO 3 
19 13 0001 BEQL $ ; 
06 BC 00 18 AG 16 A& 2D 0001 CMPCS ftCiRCurT). 24(CIRCUIT), #0, @CIRNAMDSC, - ; 1080 
046 =«=B5 Baie a4(R5) : 
9 1 1F BNEQ 2s 3 
08 C 4 0D 1 MOVL CIRCUIT, @CIRBLK ; 1084. 
0 01 ? 5 nove #1, RO 3; 1085. 
54 64 D § 2b MOVL gE SRCUET? , CIRCUIT 3 1088 
bp 1 C BRB 1 ; 10 
0 »d4 000 f 3$ CLAL RO ; 109 
04 000 RET 3; 10 


; Routine Size: 49 bytes, Routine Base: S$CODE$ + O4BA 


oO 
2 
" 
xD 
oO 
n” 


H 16 
DECnet Ethernet Configurator Module 16-Sep-1984 :046:29 AxX-11 Bliss-32 V4.0-74 P 9 
ent disable. surveillance 13-09-71 38e 98:25:83 FANCA? Bhs ene ee NGS a5. aoe $5 


ZSBTTL ‘cnf_disable_surveillance ' 


ill 
ROUTINE CNF_BISABLE_SURVEILLANCE (IRB, KNOWN, CIRCUITNAM_DSC) = 


e+ 
' 


— 4 _» 1» 


WN —ODOONOAVUSWN—OOOOUM 


Jacket routine to ensure common error recovery and memory 
deallocation for the disabling of surveillance iogic. 


irb Interrupt request block, containing request context 


circuitnam_dsc Descriptor for name of circuit to clear surveillance on. 


i 
i 
i 
i 
i 
known If true, then clear surveillance for all circuits 
i 
i 
Always return success, any errors are buffered and then sent to 

i 


connectee. 


DOOOODODOODOOODOOODOOOOOOOONOOOO 
BIEAE 
Nou 


Ww 
] 


CNFSTRACE (DBGSC_TRACE, SDESCRIPTOR(' TRACE") 
SDESCRIPTOR C'cnf_disable_surveillance')5; 


STATUS = DISABLE_SURVEILLANCE (.IRB, .KNOWN, .CIRCUITNAM_DSC); 
IF NOT .STATUS 


N 
CNFSBUFR_ERR_MSG (.IRB, NMASC_STS_MPR, 0, .STATUS) 
CNFSBUFR_NICE_MSG (.IRB, SUCCESS_NICE_DSC, 0); 


946 


Wis && 


Check to ensure that there is still something under surveillance 
otherwise, clear flag so that when execution returns to primary (oop 
in CNFMAIN it will terminate. 


URVEILLANCE_SET = FALSE; 
. CNF$GQ_CIRSURLST; 
RCUIT NEG CNF$GQ_CIRSURLST DO 


ae 
& 
m7, 


ODONOULS Ww -O0an 
Y ele ee 


OOOOOOOOOD 
PPA VAA UT 


IRCUIT CCIRSB_SURVEIL] EQL_NMASC_SUR_ENA 
CNF$B_SURVEILCANCE SET = TRUE; 

IT = [CIRCUIT CCIRSL_LINKI; ; ; . 
END; ! WHILE traversing Circuit Linked List 


RETURN TRUE: 
END; 


Be Se Se Ge Se Ge Fe Se Ge Ge Fe Ge Ge Ge Se Se Ge Fe Ge FH Ss Ge SF Se Ge FH He Se Se Se Se Se Se Se Se Ge Se Ge SF Ge Se oe SH Se Se Fe Se Sees tes 
Soo 3 
~ 
wnr— Oo 

ee ce re ee cme ce ee me ee ee ee ee ec ee ee ee a ee ee ed ed ed dd dd dd 


PK PWN RIPURIPINININNNYD 2 2 OO OS SS SOOO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
MAP 
CIRCUITNAM_DSC : REF BBLOCK; 
LOCAL 
CIRCUIT : REF BBLOCK, 
STATUS; 
1 


Tr RWS Soo SOA RUN SOOO NOU FUN OOO NOME WN ODo 


é. 


! Routine cnf_disable_surveillance 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
45 43 41 52 54 00104 P.AAX: .ASCII \TRACE\ : 


16 
Ethernet Configurator Module 14-5 -1984 02:04:29 AX-11 Bliss-32 V4.0-74 
; : 12-80-1382 95:05:63 SRCI NPRENUES 03551 


cnf_disable_surveillance 


72 75 73 SF 65 6C 6¢ 61 
65 63 


3; Routine Size: 


s 
NICNF. C 
BLKB 
68 68 f P.AAW: .LONG 
0 1 »ADDRESS P.AAX 
14 P.AAZ: .ASCII \cnf disable_surveillance\ 


73 69 64 SF 66 
6— 61 6C 6C 6 


o-—- NOOO 
SCOOwouw 
leleleleleleleo) 


3 
He P.AAY: .LONG 24 
«ADDRESS P.AAZ 


«PSECT S$CODES,NOWRT,2 
0000 00000 CNF_DISABLE_ SURVEILLANCE: 
-WORD § 


ave nothing 
0000" CF 9F 00002 PUSHAB P.AAY 
0000" CF 9F 00006 PUSHAB P.AAW 
o1 DD BO00A PUSHL #7 
00006 cf 3 FB 0000C CALLS #3, CNFSTRACE 
E 08 AC 7D 00011 MOVG KNOWN, =(SP) 
04 AC DD 00015 PUSHL IRB 
0000v CF 03 FB 00018 CALLS #3, DISABLE_SURVEILLANCE 
11 50 €8 0001D BLBS § STATUS, 1$ 
50 DD 00020 PUSHL STA 
7E 04 00022 CLRL. <=-(SP 
7E 05 CE 00024 MNEGL #5, =(SP) 
04 AC DD 00027 PUSHL IRB 
00006 CF 04 FB OO02A CALLS #4, CNFSBUFR_ERR_MSG 
OE 11 000¢F BRB 2$ 
7E 04 00031 1$: CLRL = = (SP) 
0000" CF 9F 00033 PUSHAB SUCCESS_NICE_DSC 
04 Ac DD 00037 PUSHL IR 
00006 CF 03 FB 00054 CALLS #3, CNFSBUFR_NICE_MSG 
00006 CF 04 O003F 28: CLRL CNF$B_SURVEICLANCE_ SET 
51 00006 CF DO 00043 MOVL  CNFS$GO_CIRSURLST, CIRCUIT 
50 00006 cr 9E 00048 3S: MOVAB  CNF$GQ~CIRSURLST. RO 
50 1 Di 00040 CMPL CIRCUIT, RO 
OF 13 90050 BEQL 46s«O5$ 
0A Al 950 O5¢ TSTB = 10(CIRCUIT) 
05 12 0005 BNEQ © 4$ ; 
00006 CF 01 D0 00057 MOVL #1, CNFSB_SURVEILLANCE_SI:T 
51 61 DO 0005Cc 4s: MOVL (CIRCUIT)> CIRCUIT 
E/ 11 0005F BRB 3$ 
50 1 00 00061 5$: MOVL #1, RO 
04 00064 RET 


Routine Base: SCODE$S + 04EB 


ek a ee ts 4 as 8 3 


997 


Sees SSSsss3sssse 


SOOOoooooooooeoo 


BRIRIDQIRY at wet et ot tt ot = ot 
WN —OOONOuULWwN—oO 


WO DONG VSWR OVOONOUSE 


WN SO OONOUSWN “OVO Nou 


i ee ee ee ee ee eee SY 
CONOW 


a a a a a a a a a 


SOOONOUS WIN 


16 
Cnet Ethernet Configurator Modul 16-Sep- - -0- 
disable_surveillance - rae 1b-$e0-1 382 93:25 $3 NICNE oR RCIEN hed és. 633.1 


NICNF.SRC 


ZSBTTL ‘disable surveillance ' 
POUT INE DISABLE SURVEILLANCE (IRB, KNOWN, CIRCUITNAM_DSC) = 


Perform some checking before calling the routine which will 

handle the actual disabling of surveillance on a circuit by 

first determining if the requested circuit has surveillance set. 

If known was specified, then discover all the NI circuits available. 


irb Interrupt request block, containing request context 
known If true, then clear surveillance for all circuits 


circuitnam_dsc For checking if this circuit is in our List 
of circuits. 


CIRCUIT : REF BBLOCK; 
CIRCUITNAM_DSC : REF BBLOCK; 


CNFSTRACE (DBGSC TRACE SDESCRIPTOR(' TRACE"), 
SDESCRIPTOR C'disable_surveillance')); 


CNF$GQ_CIRSURLST; 
T NEG CNF$GQ_CIRSURLST DO 


cul 
TE sar stb ae eth a ge tRCUatT 
IT = .CIRCUIT CCIRSL_L 

3 WILE traversing circuit Linked List 


' 
: If the circuit is in our List, then disable surveillance, 
otherwise buffer an error for return to connectee. 


BEGIN 
IF CNFSLOCATE_CIR_BLK (.CIRCUITNAM_DSC, CIRCUIT) 
meni (CNFSDISABLE_SURVEIL (.CIRCUIT)) 


BEGIN This circuit not in data base 

CNFSBUFR_ERR_MSG (.IRB, NHASE us: IDE, NMASC_ENT_CIR, 0, 
-CIRCUITRAM_DSC); 

er TRUE; 


Re TURN TRUE; ; 
! Routine disable_surveillance 


; Routine Size: 


DECnet Ethernet Configurator Module 
disable_surveillance 


6C 69 65 76 72 75 73 SF 65 6€ ¢ 61 
65 63 


00006 


0000v 


FF2B 


0000Vv 


00006 


Routine Base: 


MOAN FS VIN QIQOwWAOOMPOONMO 
[ODE = O—MOWVOMOMO—M YM OW TTS 


oorco,r 


Soooooo oS eo Sooo 


Sooooocoeco 
SSssssssssoso 


o 


OVO MI ONVCOMMOM NSO -OMnSO—-COUOMTO OO 
fFowomod £ow°o 0900-9 ODMOWwW- Mouowu ns 
COOGGOOOGOOOOOOOOOOOSOOSOOOOOoOOO: 


—MOOWOI OOLWU PS NWA MONUING OL 


wns 


oo 
PA 


SCODES + 0550 


DISABLE_ 


1$: 


23: 


3$: 


«PSECT 


ASCII 
-BLKB 
- LONG 
-ADDRESS 
ASCII 


- LONG 
- ADDRESS 


»PSECT 
SURVEILL 
. WORD 


:29 AX-11 
752 


Ot iene V4.0-74 
NICNF .SRCJCNFREQUES .832;1 


SPLITS,NOWRT ,NOEXE ,2 
\TRACE\ 


P.ABB 
\disable_surveillance\ 


20 
P.ABD 


SCODES ,NOWRT 2 


ANCE: 
Save nothing 
#4, SP 


P.ABC 
P.ABA 


#1 
#3, CNFSTRACE 


K 
CNF$GQ_CIRSURLST, CIRCUIT 
CNF$GQ~CIRSURLST, RO 
CIRCUIT, RO 


CIRCUIT 

#1, CNFSDISABLE_SURVEIL 
STATUS, 5$ 

aciRCUiT 


SP 
CIRCUITNAR DSC 

#2, CNFSLOCATE_CI2_BLK 
CIRCUIT 

#1, CNFSDISABLE_SURVEIL 
STATUS, 4$ 
CIRCUITNAM_DSC 

#3, -(SP) 

4 -(SP) 

#5, CNFSBUFR_ERR_MSG 

#1, RO 


Pe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Be Se Se Se Be Se Se Se Se Se Se Se Se Be 


16 
18-Sep-19 4 95:06:69 AX-11 Sliss-32 V4.0-74 Pope 433 


le 
DISABLE _SURVEIL: clean up circuit block en 14-Sep-1984 


ZSBTTL  ‘CNFSDISABLE_SURVEIL: clean up circuit block entry and quit surveillance’ 
GLOBAL ROUTINE CNFSDISABLE_SURVEIL (CIR) = 


NICNF..SRCJCNFREQUES .B32;1 


oO 


D 
C 
; 1025 1 1 
3 7 § 1 1 
; 10 1 1 
3; 1028 1206 1 !4+ 
3 13 3 : 5 : FUNCTIUNAL DESCRIPTION: 
: 44 1 } 44 : : This is the routine that actually terminates surveillance of a circuit. 
3; 10 : 1209 1 ! FORMAL PARAMETERS: 
; 10 1210 1! 
; 1035 1211 1! cir Circuit control block. 
3; 10 1 \¢ 1! 
3; 10 121 1 ! IMPLICIT INPUTS: 
; 1038 1214 1! NONE 
3; 1039 1215 1! 
: 1040 1 1 1 ! IMPLICIT OUTPUTS: 
3 1061 121 1! NONE 
3 10¢8 1 18 1! 
3: 104 121 1 ! ROUTINE VALUE: 
3 1044 1 $y 1 ! COMPLETION CODES: 
3 1045 1221 1! NONE 
3; 1046 1 $§ 1! 
3: 1047 1 1 ! SIDE EFFECTS: 
3; 1048 12246 1! NONE 
3: 1049 1225 1! 
3; 1050 1226 1 !-- 
: 1051 1227 1 
3 1028 1228 2 BEGIN 
3; 105 1$¢8 MAP 
3; 1054 1230 CIR : REF BBLOCK; 
3; 1055 1231 LOCAL 
: 1056 1S36 SID : REF BBLOCK, 
: 1057 123 STATUS; 
3; 1058 is3e 
3; 1059 1235 2 : 
3 1pe8 1$36 e CIR CCIR$B_SURVEIL] = NMAS$C_SUR_DIS; ' Mark surveillance disabled 
: 196 1$38 EXECUTE ( SDASSGN (CHAN = .CIR CCIRSW_CHAN]) ); ! Terminate read of System ID's 
3: 1064 1240 ! 
3; 1065 1241 ! Deallocate all the memory used to store system ID messages 
3 1996 ists } gathered for the circuit 
3 1908 1244 SID = .CIR CCIRSL_SIDFLINK); 
> 106 1245 WHILE .SID NEQ CIR CCIRSL_SIDFLINK] DO 
: 1070 1 $6 BEGIN 
; 1071 124 REMQUE (.SID, STATUS); 
: 1076 1248 EXECUTE (CN? $FREE_VM (ZREF (SIDSC_LENGTH), SID)); 
* 107 1249 SID = .CIR CCIRSL_SIDFLINK]; 
3 1074 1250 END; 
: 1075 1251 
3 1976 1 26 ! : 
3 4 : 37 ! Record time when surveillance was discontinued 
3 1978 : 3 EXECUTE (SGETTIM (TIMADR = CIR CCIRSQ_ELAPSDTIM]) ); 
: 1081 1589 RETURN TRUE; 


CNFREQUES DECnet Ethernet Configurator Mod 
voe-000" CNFSDISABLE_SURVEIL: wclean up ¢ 
; 1082 1258 1 END; 


0005 990 
5 08 C2 0000 
5 04 AC 009 
OA A 01 009 
re 16 A2 0000 
000000006 0 1 £8 00011 
4B 0 €9 00018 
04 AE 40 a2 00 0001B 
52 04 AC 00000040 &F C1 00020 
52 04 AE D1 00029 
25 13 00090 
53 04 BE OF O00>DF 
06 AE 9F 00038 
04 AE 25 D0 00036 
04 AE 9F OO03A 
00006 CF 02 FB 0003p 
31 0 £9 00042 
52 04 AC 00000060 a C1 0004 
04 AE 62 00 004 
p11 0005 
7E 06 ac 30 C1 00054 
000000006 00 01 FB 00089 
03 50 £9 00060 
50 01 50 00063 
04 00066 


; Routine Size: 103 bytes, Routine Base: 


M 
Yreute block en 12: 


16 
Sep-1984 
Sep-1984 


93:25 


33 AX=11 Ol igenae V4.0-74 
: CICNFREQUES.832;1 


NICNF.SR 


! Routine cnf$disable_surveil 


SCODES + 0582 


7 
wn 
oe 


~m 
wn 


Ww 
wn 


~EXTRN 


SYSSDASSGN 
CHF SDISABLE SURVEIL. Save R2,R3 


@SID, STATUS 
#37, 4(SP) 

#2, CNFSFREE_VM 
STATUS, 3$ 

#64 cir. R2 


Page 34 


(11) 


Neosed Time: 


l.ines/CPU Min: 2268 
Lexemes/CPU-Min: 18605 
Memory Used: eve pages 


Compi.cation Complete 


CNFREQUES DECnet Ethernet Configurator Module 1s 2:04:29 AX-11 Bliss-32 V4.0-74 
youeboe CNFSDISABLE_SURVEIL: welean up circuit block en i2- ~300n 138i p 09:83 NICNE. SRCTENPRE UES B39; 1 
; 1086 1259 1 END ! End of module CNFREQUES 
>; 1085 1580 0 ELUDOM 
~EXTRN LIBSSIGNAL 
FH PSECT SUMMARY 
; Name Bytes Attributes 
: SPLITS 352 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SOWNS NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 1561 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
3 nonsense SyEbel§ somes Pages Processing 
; File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIB STARLET «L .L32;1 9776 15 0 581 00:01.0 
; _~$255$DUA28: CSHRLIBIN 1279 16 1 63 00:00.8 
; ~$255$DUA28:CSHRLIB NMALIBRY. ‘32: 1 887 37 4 47 00:00.8 
$ COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:CNFREQUES/OBJ=OBJ$:CNFREQUES MSRC$:CNFREQUES/UPDATE=(ENHS$: CNFREQUES) 
Size: 1561 code + 432 data bytes 
Run Time 0:35.5 
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ND PROPRIETARY 
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